home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / obrn-a_1.5_src.lha / oberon-a / source3.lha / Source / Misc / GenPasswd.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  2.3 KB  |  99 lines
  1. (*
  2.      $RCSfile: GenPasswd.mod $
  3.   Description: Unix password generator.
  4.  
  5.    Created by: fjc (Frank Copeland)
  6.     $Revision: 1.4 $
  7.       $Author: fjc $
  8.         $Date: 1995/01/26 01:05:15 $
  9.  
  10.   Copyright © 1994, Frank Copeland.
  11.   This file is part of Oberon-A.
  12.   See Oberon-A.doc for conditions of use and distribution.
  13.  
  14.   Log entries are at the end of the file.
  15.  
  16.   I wrote this program after I apparently had my university account broken
  17.   into.  It simply generates a random string of characters of a given
  18.   length.
  19. *)
  20.  
  21. <*STANDARD-*>
  22.  
  23. MODULE GenPasswd;
  24.  
  25. IMPORT Errors, Args, RN := RandomNumbers, IO := StdIO;
  26.  
  27. CONST
  28.   VersionTag = "$VER: GenPasswd 1.3 (24.9.94)\r\n";
  29.   VersionStr = "GenPasswd 1.3 (24.9.94)\r\n";
  30.   CopyrightStr = "Copyright © 1993-1994 Frank Copeland\n\n";
  31.  
  32. CONST
  33.   startChar = ORD ("!");
  34.   range = ORD ("~") - ORD ("!") + 1;
  35.  
  36. VAR i, j, numChars, count : LONGINT;
  37.  
  38. (*------------------------------------*)
  39. PROCEDURE StrToInt (s : ARRAY OF CHAR) : LONGINT;
  40.  
  41.   VAR i, j : LONGINT;
  42.  
  43. <*$CopyArrays-*>
  44. BEGIN (* StrToInt *)
  45.   i := 0; j := 0;
  46.   WHILE s [i] # 0X DO
  47.     IF (s[i] < "0") OR (s[i] > "9") THEN
  48.       IO.WriteStr (" !! Error: Illegal char in parameter\n");
  49.       HALT (20)
  50.     END;
  51.     j := (j * 10) + (ORD (s[i]) - ORD ("0"));
  52.     INC (i)
  53.   END;
  54.   RETURN j
  55. END StrToInt;
  56.  
  57. BEGIN
  58.   IO.WriteStr (VersionStr);
  59.   IO.WriteStr (CopyrightStr);
  60.   IF Args.argc = 1 THEN
  61.     count := 1; numChars := 8
  62.   ELSIF Args.argc = 2 THEN
  63.     count := 1; numChars := StrToInt (Args.argv [1]^)
  64.   ELSIF Args.argc = 3 THEN
  65.     numChars := StrToInt (Args.argv [1]^);
  66.     count := StrToInt (Args.argv [2]^)
  67.   ELSE
  68.     IO.WriteStr ("Usage: GenPasswd [<password length>] [<# of passwords>]");
  69.     HALT (10)
  70.   END;
  71.   RN.TimeSeed;
  72.   FOR i := 1 TO count DO
  73.     FOR j := 1 TO numChars DO
  74.       IO.Write (CHR (ENTIER (RN.Uniform () * range) + startChar))
  75.     END;
  76.     IO.WriteLn()
  77.   END
  78. END GenPasswd.
  79.  
  80. (***************************************************************************
  81.  
  82.   $Log: GenPasswd.mod $
  83.   Revision 1.4  1995/01/26  01:05:15  fjc
  84.   - Release 1.5
  85.  
  86.   Revision 1.3  1994/09/25  18:25:17  fjc
  87.   - Uses new syntax for external code declarations
  88.  
  89.   Revision 1.2  1994/06/05  22:24:19  fjc
  90.   - Added count parameter
  91.  
  92.   Revision 1.1  1994/05/12  20:20:07  fjc
  93.   - Prepared for release
  94.  
  95.  
  96. ***************************************************************************)
  97.  
  98.  
  99.